home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / 1st_101a.zip / $$REPLY.SCR < prev    next >
Text File  |  1992-09-28  |  2KB  |  83 lines
  1. '       ┌──────────────────────────────────┐
  2. '       │ Qmail reply script for 1stReader │
  3. '       │ Written by Mark Herring          │
  4. '       │ September 27, 1992               │
  5. '       └──────────────────────────────────┘
  6.  
  7. CAPTURE ON
  8. TIMEOUT 30
  9.  
  10. LOOKFOR "correct? " "^M"
  11. LOOKFOR "elp, More? " "N^M"
  12. LOOKFOR "(Enter)=yes? " "N^M"
  13. LOOKFOR "Language #" "@LANGUAGE@^M"
  14. LOOKFOR ") to continue?" "^M"
  15. LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
  16.  
  17. LOCKLINE 20 30
  18. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  19. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  20. COMMENT "@DATE@ @TIME@  Logging in to system"
  21.  
  22. WAITFOR "color|graphics" 20
  23. TRANSMIT "@GRAPHICS@ Q NS^M"
  24. WAITFOR "first name" 50
  25. IF FOUND=0 EXIT
  26. TRANSMIT "@USER@^M"
  27. WAITFOR "password|new user?"
  28. LOOKFOR "correct? " ""
  29. IF FOUND=1 GOTO LOGIN
  30.  
  31. COMMENT "@DATE@ @TIME@  New user login"
  32. TRANSMIT "^M"
  33. IF NOT SWITCH 1 HELP 198
  34. TERMINAL
  35. GOTO DOOR
  36.  
  37. :LOGIN
  38. COMMENT "@DATE@ @TIME@  Transmitting password"
  39. TRANSMIT "@PASSWORD@^M"
  40. WAITFOR "Command?"
  41. TIMEOUT 60
  42.  
  43. :DOOR
  44. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  45. TRANSMIT "J @CONFERENCE@ Q^M"
  46. WAITFOR "=yes?" 3
  47. IF FOUND=1 TRANSMIT "N^M"
  48. COMMENT "@DATE@ @TIME@  Opening Qmail Door"
  49. TRANSMIT "@QMAIL@ PROMPTS;U^M"
  50. LOOKFOR "<AUTOSTART>" "X'1B"
  51.  
  52. IF NOT KEYWORDS GOTO REPLIES
  53. COMMENT "@DATE@ @TIME@  Transmitting keywords"
  54. WAITFOR "<KEYUP>"
  55. UPLOAD @API$(14)KEYWORDS
  56.  
  57. :REPLIES
  58. IF NOT REPLIES GOTO DOWNLOAD
  59. COMMENT "@DATE@ @TIME@  Uploading replies"
  60. WAITFOR "<UPLOAD>"
  61. UPLOAD @REPDIR@@BBSID@.REP
  62. WAITFOR "<MESSAGES INSERTED>|<MESSAGES NOT INSERTED>|<BAD UPLD>"
  63. IF FOUND=1 GOTO GOODUPLD
  64. GOTO GOODBYE
  65.  
  66. :GOODUPLD
  67. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  68. KILL @REPDIR@@BBSID@.REP
  69. COUNT REP
  70.  
  71. :GOODBYE
  72. WAITFOR "<COMMAND>" 30
  73. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  74. TRANSMIT "G^M"
  75.  
  76. :EXIT
  77. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  78. LOOKFOR "<GOODBYE>" "^M"
  79. WAITFOR "<HANGUP>" 20
  80. PAUSE 2
  81.  
  82. CAPTURE OFF
  83.